object frLgot: TfrLgot
  Left = 0
  Top = 0
  BorderStyle = bsDialog
  ClientHeight = 193
  ClientWidth = 689
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object gbLgota: TGroupBox
    AlignWithMargins = True
    Left = 3
    Top = 3
    Width = 683
    Height = 187
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 12
      Top = 17
      Width = 130
      Height = 14
      Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1083#1100#1075#1086#1090#1099':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 462
      Top = 17
      Width = 20
      Height = 14
      Caption = '% :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label17: TLabel
      Left = 11
      Top = 48
      Width = 92
      Height = 14
      Caption = #1059#1076#1086#1089#1090#1086#1074#1077#1088#1077#1085#1080#1077':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label15: TLabel
      Left = 12
      Top = 72
      Width = 73
      Height = 14
      Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 12
      Top = 104
      Width = 95
      Height = 14
      Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label18: TLabel
      Left = 300
      Top = 71
      Width = 31
      Height = 14
      Caption = #1060#1048#1054':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object labDAT_PODTV: TLabel
      Left = 300
      Top = 104
      Width = 126
      Height = 14
      Caption = #1044#1072#1090#1072' '#1087#1086#1076#1090#1074#1077#1088#1078#1076#1077#1085#1080#1103':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object cbNAIM_LG: TDBLookupComboBox
      Left = 204
      Top = 13
      Width = 252
      Height = 24
      DataField = 'KOD_LG'
      DataSource = dmProc.dsABON_LG
      DropDownRows = 25
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      KeyField = 'KOD_LG'
      ListField = 'NAI_LG'
      ListSource = dmProc.dsSPR_LG
      ParentFont = False
      TabOrder = 0
      OnKeyDown = cbNAIM_LGKeyDown
    end
    object dbeKOD_LG: TDBEdit
      Left = 157
      Top = 14
      Width = 44
      Height = 22
      Color = clActiveBorder
      DataField = 'KOD_LG'
      DataSource = dmProc.dsSPR_LG
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
    end
    object dbePROC: TDBEdit
      Left = 488
      Top = 14
      Width = 34
      Height = 22
      Color = clActiveBorder
      DataField = 'PROC_LG'
      DataSource = dmProc.dsSPR_LG
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
    end
    object btSave: TcxButton
      Left = 8
      Top = 153
      Width = 91
      Height = 25
      Action = actSAVE
      TabOrder = 3
      Glyph.Data = {
        26040000424D2604000000000000360000002800000012000000120000000100
        180000000000F0030000C40E0000C40E00000000000000000000CAD6DBCAD6DB
        CAD6DBCAD6DBCAD6DBCAD6DBCAD6DBCAD6DBCAD6DBCAD6DBCAD6DBCAD6DBCAD6
        DBCAD6DBCAD6DBCAD6DBCAD6DBCAD6DB0000CCD8DDCCD8DDCCD8DDCCD8DDCCD8
        DDCCD8DDCCD8DDCCD8DDCCD8DDCCD8DDCCD8DDCCD8DDCCD8DDCCD8DDCCD8DDCC
        D8DDCCD8DDCCD8DD0000CFDADFCFDADFCFDADFA7A7A773737373737359595959
        59594B4B4B4B4B4B3D3D3D303030303030303030A7A7A7CFDADFCFDADFCFDADF
        0000D2DCE0D2DCE0A7A7A7633600CDCDCDE6E6E6C1C1C1C1C1C1CDCDCDF0F0F0
        EDEDEDE6E6E6A7A7A7333333303030A7A7A7D2DCE0D2DCE00000D4DEE2633600
        633600633600DADADAE6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6DADA
        DACB8C44633600303030303030D4DEE20000D7E0E4633600CB8C44633600D9A7
        7DD9A77DD9A77DD9A77DD9A77DCB8C44CB8C44CB8C44CB8C44CB8C446336007F
        5B00303030D7E0E40000DAE2E6633600D9A77D633600D9A77DD9A77DD9A77DD9
        A77DD9A77DD9A77DCB8C44CB8C44CB8C44CB8C44633600CB8C44303030DAE2E6
        0000DCE4E7633600D9A77D633600D9A77DD9A77DD9A77DD9A77DD9A77DD9A77D
        D9A77DCB8C44CB8C44CB8C44633600CB8C443D3D3DDCE4E70000DFE6E9633600
        D9A77D633600AA3F2A6336006336006336006336006336006336006336006336
        00CB8C44633600CB8C444B4B4BDFE6E90000E1E8EB633600D9A77D6336009A9A
        9AAAFFFF99F8FF99F8FF99F8FF99F8FF99F8FF99F8FF99F8FF633600633600CB
        8C444B4B4BE1E8EB0000E4EAED633600D9A77D633600AAFFFFCDCDCDA7A7A7A7
        A7A7A7A7A7A7A7A7A7A7A7A7A7A7C1C1C199F8FF633600CB8C444B4B4BE4EAED
        0000E7ECEF633600D9A77D7F5B00AAFFFFAAFFFFAAFFFFAAFFFFAAFFFFAAFFFF
        AAFFFFAAFFFFAAFFFF99F8FF7F5B00CB8C444B4B4BE7ECEF0000E9EEF0633600
        D9A77D7F5B00AAFFFFCDCDCDA7A7A7A7A7A7A7A7A7A7A7A7A7A7A7A7A7A7C1C1
        C199F8FF7F5B00CB8C444B4B4BE9EEF00000ECF0F2633600D9A77D989898AAFF
        FFAAFFFFAAFFFFAAFFFFAAFFFFAAFFFFAAFFFFAAFFFFAAFFFF99F8FF989898CB
        8C44595959ECF0F20000EFF2F4633600D9A77DA6A6A6EFF2F4CDCDCDCB8C44CB
        8C44A7A7A7A7A7A7A7A7A7A7A7A7C1C1C199F8FFA6A6A6D9A77D666666EFF2F4
        0000F1F4F6A7A7A76336007F5B00F1F4F6F1F4F6AAFFFFAAFFFFAAFFFFAAFFFF
        AAFFFFAAFFFFAAFFFFAAFFFF7F5B00633600A7A7A7F1F4F60000F4F6F7F4F6F7
        F4F6F7A7A7A76336006336006336006336006336006336006336006336006336
        006336009A9A9AF4F6F7F4F6F7F4F6F70000F7F8F9F7F8F9F7F8F9F7F8F9F7F8
        F9F7F8F9F7F8F9F7F8F9F7F8F9F7F8F9F7F8F9F7F8F9F7F8F9F7F8F9F7F8F9F7
        F8F9F7F8F9F7F8F90000}
    end
    object btCancel: TcxButton
      Left = 105
      Top = 153
      Width = 91
      Height = 25
      Action = actESC
      ModalResult = 2
      TabOrder = 4
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FFFFFFE2E2E2
        6E6E6E3939392424241A1A1A1616161313131313131515151A1A1A2222223535
        35646464D0D0D0FFFFFF7878781C1C1C0D0D0D08080806060605050504040404
        04150404150404040404040606060808080C0C0C181818626262FFFFFFFFFFFF
        D1D1D17878781616B80C0CC80A0AC40A0AC40A0AC40A0AC40C0CC81616B56F6F
        6FC2C2C2FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0E0ED10B0BC80C0CD10D0DE40D
        0DEE0D0DEE0D0DE40C0CD10B0BC80E0ED1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        1111D00C0CCE1414ED1616F52929ED1616FB1616FB2828ED1616F51414ED0C0C
        CE1111CFFFFFFFFFFFFFFFFFFFFFFFFF0C0CCD1C1CEF1F1FF3A2A2EFE2E2F838
        38EC3838ECE2E2F7A1A1EE1E1EF31C1CEF0C0CCDFFFFFFFFFFFFFFFFFF1E1ECE
        1717DA3B3BF54C4CEDE4E4F9FFFFFFE3E3F8E2E2F8FFFFFFE2E2F83636EA2929
        F51616DA1E1ECEFFFFFFFFFFFF0C0CC83838E16666F56666F56868EEE4E4FAFF
        FFFFFFFFFFE2E2F94545EB3232F23F3FF23A3AE10C0CC8FFFFFFFFFFFF0C0CC5
        4343DF7B7BF47B7BF47272F0E3E3FAFFFFFFFFFFFFE3E3FA5C5CED6363F27777
        F34545DF0C0CC5FFFFFFFFFFFF1010C52828D48C8CF27B7BF1E3E3FBFFFFFFE4
        E4FBE4E4FBFFFFFFE4E4FB7B7BEF8C8CF22B2BD41010C5FFFFFFFFFFFFFFFFFF
        0C0CCA7474E99393F1B8B8F6E4E4FB8D8DF18E8EF1E4E4FBB9B9F69393F17575
        E90D0DCAFFFFFFFFFFFFFFFFFFFFFFFF0C0CC02929D89191EE9696F09292F0B2
        B2F4B2B2F49292F09696F09191EE2929D80C0CC0FFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFF0B0BC23636DD9797F1A2A2F2A2A2F2A2A2F2A2A2F29898F13838DD0B0B
        C2FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0C0CBE1818CF4D4DE16D
        6DED6F6FED5252E21A1ACF0C0CBEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFF6767D30E0EBB0C0CBB0C0CBB0E0EBB6767D3FFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
    object btKON_LG: TcxButton
      Left = 8
      Top = 153
      Width = 91
      Height = 25
      Action = actKON_LG
      TabOrder = 5
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FFFFFF76250C
        71220A78260D862F139236189F3E1EAD4624B84E29BD512BC2542DC7572FCB5A
        31D05D33D86137F6744472220A74220B862E1397391BA94421BA4F29C95930D1
        6C48D6744DD76036C95830BA4F2AAB46239B3B1C8D3216B54B276B1D0771210A
        822C11933719A44120B34A27C0532DE7D1C7F4ECE7C7572FBD512BB04825A03F
        1E9034177F2A109D3C1D691D06691D067A270E964A31DFC6BEB67055B56141FB
        F8F6FFFFFFC78161BD6D49EEDBCBC48C6A862E1376250C96381A6F2008681C06
        6F20099C5B45FEFDFDFFFFFFE8D4C9CD9D83D0A086ECD8C8FEFDFCFFFEFED2A8
        877A270E6B1E0792361875240B681C06681C066F2009D9BCAED7B7A68D3618B0
        705CA65C4591381BDDBCA0DDBCA0A6705F742A14681C068E33167B270E681C06
        6A1F088D4D37EFE2DB9243238B3215F6EFEDFFFFFFA25A41812D11DAC4BBFFFF
        FFEDE4E16C220C8A3114802B1071220ADFC4B8FFFFFFF0E2D8CD633DD06842FB
        F4F1FFFFFFD88466E09F88FFFFFFFEFEFEB56B5376240C852E13913518BE522C
        D1967BE9D1C3FBF6F3D37852D67652FCF5F3FFFFFFE29F86FDFBFAFFFFFFE7B5
        A2C95931C4562E95381AA13F1FC95931CC6039D16B46E9CCB7E5BA9CDC8361FC
        F6F4FFFFFFFBF2EFFFFFFFF7E5DED26E49CD623BC95931A34120A54220CA5C35
        D06943D47C57F8F1E9FFFFFFEEC9A8FDF7F5FFFFFFFDFBF9FFFFFFF2D4C9D677
        53D16B45CB5E37A1401FA94422CD633CD3704CDEA17EFFFFFEF5E2CDEEC09BFD
        F8F6FFFFFFF1C4B2FEFEFDFFFFFFEAB8A4D4724ECE653E9F3E1EAC4623CF6842
        D67652DC8462E6A883E89E7FEDA98CFEFAF9FFFFFFF2C2ADF4D3C6FFFFFFFDFD
        FBE3A188D06A449E3E1EB14A26D16B45D87A56DE8967E59778EBA688F2B397FE
        FCFBFFFFFFF6CFBEECA78AFBF1EDFDFAF5FDF9F6D67B5A9C3E1FB74D29CD6944
        D87B58DF8A69E69A7AEDA98BF4B89DFCE0D2FDEAE0F7C9B4EEAB8EEAAA90EEC2
        B0DC8A6AD16D488C3418E1673BCA5A32CB5F38C65F3AC25E3BBE5F3CB95E3EB5
        5D3EAF5A3CA85437A14D309A462A923F238B371C7C2A116B1E07}
    end
    object cbFIO: TDBLookupComboBox
      Left = 346
      Top = 69
      Width = 284
      Height = 22
      DataField = 'KOD_GILZA'
      DataSource = dmProc.dsABON_LG
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      KeyField = 'KOD'
      ListField = 'FIO'
      ListSource = dmProc.dsSPR_GILZI
      ParentFont = False
      TabOrder = 6
      OnKeyDown = cbFIOKeyDown
    end
    object btADD: TcxButton
      Left = 636
      Top = 69
      Width = 22
      Height = 20
      Action = ADD_SPR
      TabOrder = 7
    end
    object dbeUDOSTOV: TDBEdit
      Left = 157
      Top = 43
      Width = 220
      Height = 24
      DataField = 'UDOSTOV'
      DataSource = dmProc.dsABON_LG
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnKeyDown = dbeUDOSTOVKeyDown
    end
    object dtpDATA_NACH: TcxDBDateEdit
      Left = 157
      Top = 72
      DataBinding.DataField = 'DAT_NATH'
      DataBinding.DataSource = dmProc.dsABON_LG
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
      TabOrder = 9
      OnKeyDown = dtpDATA_NACHKeyDown
      Width = 124
    end
    object dtpDATA_KON: TcxDBDateEdit
      Left = 157
      Top = 102
      DataBinding.DataField = 'DAT_KON'
      DataBinding.DataSource = dmProc.dsABON_LG
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
      TabOrder = 10
      OnKeyDown = dtpDATA_KONKeyDown
      Width = 124
    end
    object dtpDAT_PODTV: TcxDBDateEdit
      Left = 432
      Top = 100
      DataBinding.DataField = 'DAT_PODTV'
      DataBinding.DataSource = dmProc.dsABON_LG
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
      TabOrder = 11
      Width = 124
    end
  end
  object ActionList1: TActionList
    Left = 643
    Top = 126
    object ADD_SPR: TAction
      Caption = '...'
      Hint = 'Ctrl+A'
      ShortCut = 16449
    end
    object actSAVE: TAction
      Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
      OnExecute = actSAVEExecute
    end
    object actKON_LG: TAction
      Caption = #1054#1082#1086#1085#1095'.'#1083#1100#1075'.'
      OnExecute = actKON_LGExecute
    end
    object actESC: TAction
      Caption = #1054#1090#1084#1077#1085#1072
      ShortCut = 27
      OnExecute = actESCExecute
    end
  end
  object dsetPROVERKA: TIBCQuery
    SQLInsert.Strings = (
      'INSERT INTO LG_ABON'
      
        '  (UDOSTOV, NOM_ABON, FIO_LG, DAT_NATH, KOD_LG, DAT_KON, DAT_POD' +
        'TV, NORM_Z, NORM_L, STATUS, DAT, KOD_OP, SUM_LG, KOD_GILZA)'
      'VALUES'
      
        '  (:UDOSTOV, :NOM_ABON, :FIO_LG, :DAT_NATH, :KOD_LG, :DAT_KON, :' +
        'DAT_PODTV, :NORM_Z, :NORM_L, :STATUS, :DAT, :KOD_OP, :SUM_LG, :K' +
        'OD_GILZA)')
    SQLDelete.Strings = (
      'DELETE FROM LG_ABON'
      'WHERE'
      '  NOM_ABON = :Old_NOM_ABON AND UDOSTOV = :Old_UDOSTOV')
    SQLUpdate.Strings = (
      'UPDATE LG_ABON'
      'SET'
      
        '  UDOSTOV = :UDOSTOV, NOM_ABON = :NOM_ABON, FIO_LG = :FIO_LG, DA' +
        'T_NATH = :DAT_NATH, KOD_LG = :KOD_LG, DAT_KON = :DAT_KON, DAT_PO' +
        'DTV = :DAT_PODTV, NORM_Z = :NORM_Z, NORM_L = :NORM_L, STATUS = :' +
        'STATUS, DAT = :DAT, KOD_OP = :KOD_OP, SUM_LG = :SUM_LG, KOD_GILZ' +
        'A = :KOD_GILZA'
      'WHERE'
      '  NOM_ABON = :Old_NOM_ABON AND UDOSTOV = :Old_UDOSTOV')
    SQLRefresh.Strings = (
      
        'SELECT UDOSTOV, NOM_ABON, FIO_LG, DAT_NATH, KOD_LG, DAT_KON, DAT' +
        '_PODTV, NORM_Z, NORM_L, STATUS, DAT, KOD_OP, SUM_LG, KOD_GILZA F' +
        'ROM LG_ABON'
      'WHERE'
      '  NOM_ABON = :NOM_ABON AND UDOSTOV = :UDOSTOV')
    SQLLock.Strings = (
      'SELECT NULL FROM LG_ABON'
      'WHERE'
      'NOM_ABON = :Old_NOM_ABON AND UDOSTOV = :Old_UDOSTOV'
      'FOR UPDATE WITH LOCK')
    SQL.Strings = (
      'select count(*) as KOL from lg_abon lg'
      'where lg.nom_abon=:NOM and lg.udostov=:UDOSTOV')
    Left = 619
    Top = 9
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end
      item
        DataType = ftUnknown
        Name = 'UDOSTOV'
      end>
  end
  object dsPROVERKA: TIBCDataSource
    DataSet = dsetPROVERKA
    Left = 651
    Top = 9
  end
end
